ѭظִһ䡣ѭɷΪࣺһΪ False ֮ǰظִ䣬һΪ True ֮ǰظִ䣬һఴָĴظִ䡣

 VBScript пʹѭ䣺 

Do...Loop ֱΪ True ʱѭ 
While...Wend Ϊ True ʱѭ 
For...Next ָѭʹüظ䡣 
For Each...NextڼеÿеÿԪأظִһ䡣 
ʹ Do ѭ
ʹ Do...Loop Σ顣Ϊ True ʱΪ True ֮ǰظִ顣

Ϊ True ʱظִ
While ؼڼ Do...Loop еַʽڽѭ֮ǰ ChkFirstWhile ʾѭһ֮ ChkLastWhile ʾ ChkFirstWhile У myNum ĳʼֵΪ 9  20Զִѭе䡣 ChkLastWhile УѭеִֻһΣΪڼʱѾΪ False

 Sub ChkFirstWhile()
     Dim counter, myNum
     counter = 0
     myNum = 20
     Do While myNum > 10
         myNum = myNum - 1
         counter = counter + 1
     Loop
     MsgBox "ѭظ " & counter & " Ρ"
 End Sub

 Sub ChkLastWhile()
     Dim counter, myNum
     counter = 0
     myNum = 9
     Do
         myNum = myNum - 1
         counter = counter + 1
     Loop While myNum > 10
     MsgBox "ѭظ " & counter & " Ρ"
 End Sub
ظֱִΪ True
Until ؼڼ Do...Loop еַʽڽѭ֮ǰ ChkFirstUntil ʾѭһ֮ ChkLastUntil ʾֻҪΪ Falseͻѭ

 Sub ChkFirstUntil()
     Dim counter, myNum
     counter = 0
     myNum = 20
     Do Until myNum = 10
         myNum = myNum - 1
         counter = counter + 1
     Loop
     MsgBox "ѭظ " & counter & " Ρ"
 End Sub

 Sub ChkLastUntil()
     Dim counter, myNum
     counter = 0
     myNum = 1
     Do
         myNum = myNum + 1
         counter = counter + 1
     Loop Until myNum = 10
     MsgBox "ѭظ " & counter & " Ρ"
 End Sub
˳ѭ
Exit Do ˳ Do...Loop ѭΪֻͨĳЩҪ˳ѭҪѭԿ If...Then...Else  True ʹ Exit Do 䡣Ϊ FalseѭճС

ʾУmyNum ĳʼֵѭIf...Then...Else ֹѭ

 Sub ExitExample()
     Dim counter, myNum
     counter = 0
     myNum = 9
     Do Until myNum = 10
         myNum = myNum - 1
         counter = counter + 1
         If myNum < 10 Then Exit Do
     Loop
     MsgBox "ѭظ " & counter & " Ρ"
 End Sub
ʹ While...Wend
While...Wend ΪЩϤ÷ûṩġ While...Wend ȱԣԽʹ Do...Loop 䡣

ʹ For...Next
For...Next ڽָĴѭʹüñֵÿһѭӻ١

磬ʾ MyProc ظִ 50 ΡFor ָ x ʼֵֵֹNext ʹÿμ 1

 Sub DoMyProc50Times()
     Dim x
     For x = 1 To 50
         MyProc
     Next
 End Sub
ؼ Step ָÿӻٵֵʾУ j ÿμ 2ѭtotal ֵΪ 2468  10 ܺ͡

 Sub TwosTotal()
     Dim j, total
     For j = 2 To 10 Step 2
         total = total + j
     Next
     MsgBox "ܺΪ " & total & ""
 End Sub
Ҫʹݼɽ Step ΪֵʱֵֹСʼֵʾУ myNum ÿμ 2ѭtotal ֵΪ 16141210864  2 ܺ͡

 Sub NewTotal()
     Dim myNum, total
     For myNum = 16 To 2 Step -2
         total = total + myNum
     Next
     MsgBox "ܺΪ " & total & ""
 End Sub
Exit For ڼﵽֵֹ֮ǰ˳ For...Next 䡣ΪֻͨĳЩ£ڷʱҪ˳ѭԿ If...Then...Else  True ʹ Exit For 䡣Ϊ FalseѭճС

ʹ For Each...Next
For Each...Next ѭ For...Next ѭơFor Each...Next ǽָĴǶеÿԪػ󼯺еÿһظһ䡣ڲ֪ԪصĿʱǳá

ʾУDictionary ڽıֱڶıУ 

 <HTML>
 <HEAD><TITLE>Ԫ</TITLE></HEAD>
 <SCRIPT LANGUAGE="VBScript">
 <!--
 Sub cmdChange_OnClick
    Dim d                   'һ
    Set d = CreateObject("Scripting.Dictionary")
    d.Add "0", "Athens"     'ӼĿ
    d.Add "1", "Belgrade"
    d.Add "2", "Cairo"

    For Each I in d
        Document.frmForm.Elements(I).Value = D.Item(I)
    Next
 End Sub
 -->
 </SCRIPT>
 <BODY>
 <CENTER>
 <FORM NAME="frmForm"

 <Input Type = "Text"><p>
 <Input Type = "Text"><p>
 <Input Type = "Text"><p>
 <Input Type = "Text"><p>
 <Input Type = "Button" NAME="cmdChange" VALUE="˴"><p>
 </FORM>
 </CENTER>
 </BODY>
 </HTML>
